Setting dataframe.
Option 1
All points.
[[1]]

By hour

General


ggplotly(dens2)
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
the condition has length > 1 and only the first element will be usedthe condition has length > 1 and only the first element will be used
[[1]]


lapply(1:7, FUN = dens_hr2)
[[1]]
[[2]]
[[3]]
[[4]]
[[5]]
[[6]]
[[7]]







lapply(1:7, FUN = dens_hr3)
[[1]]
[[2]]
[[3]]
[[4]]
[[5]]
[[6]]
[[7]]







LS0tCnRpdGxlOiAiUHJlIEFuYWx5c2lzIHRvcCA3IGVkZ2VzOiBkZWNpZGluZyB0aGUgY291cnNlLiIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKI1NldHRpbmcgZGF0YWZyYW1lLiAKYGBge3IgZWNobz1GQUxTRX0KIyBTZXR0aW5nIHRoZSBkYXRhZnJhbWUuIAoKZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgPC0gZGZfc3BlZWRfdG9wX3AKCmRmX3N1cGVyaG90ZWRnZXNfYXByaWwxNnB0JHRpbWUgPC0gYXMuUE9TSVhjdChkZl9zdXBlcmhvdGVkZ2VzX2FwcmlsMTZwdCRzZWNvbmRzLCBvcmlnaW49IjE5NzAtMDEtMDEiKQoKZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgPC0gZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgJT4lIAogIGZpbHRlcihob3VyKHRpbWUpID49OCwgaG91cih0aW1lKTw9IDIwLCB3ZGF5KHRpbWUpICE9IDEgLCB3ZGF5KHRpbWUpICE9IDcgKSAKCmRmX3N1cGVyaG90ZWRnZXNfYXByaWwxNnB0JGNvdXJzZSA8LSBmYWN0b3IoZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQkY291cnNlKQoKI0NyZWF0ZSBjb2x1bW4gZGF5L25pZ2h0CmRmJGRheU5pZ2h0IDwtIGlmZWxzZShkZiREYXRlVGltZSA+IGRmJHN1blJpc2UgJiBkZiREYXRlVGltZSA8IGRmJHN1blNldCwgJ2RheScsICduaWdodCcpCmBgYAoKCiMjIE9wdGlvbiAxIApgYGB7ciBlY2hvPUZBTFNFfQojIEFkZGluZyBjb3Vyc2UgdG8gdGhlIHRvcCA3IGVkZ2VzLiAKCmRmX3NwZWVkX3RvcCRjb3Vyc2UgPC0gMQoKI1ZlcnRpY2FsCmRmX3NwZWVkX3RvcF9wWyhkZl9zcGVlZF90b3BfcCR3YXlfaWQgPT0gMzUxNDU1MjEgKSAmIGRmX3NwZWVkX3RvcF9wJHRyYWNrID4gOTAgJiBkZl9zcGVlZF90b3BfcCR0cmFjayA8IDI3MCxdJGNvdXJzZSA8LSAyCgpkZl9zcGVlZF90b3BfcFsoZGZfc3BlZWRfdG9wX3Akd2F5X2lkID09IDM3MTQxOTcwIHwgZGZfc3BlZWRfdG9wX3Akd2F5X2lkID09IDMxNjQ1OTE2OSkgJiAoZGZfc3BlZWRfdG9wX3AkdHJhY2sgPCA5MCB8IGRmX3NwZWVkX3RvcF9wJHRyYWNrID4gMjcwKSxdJGNvdXJzZSA8LSAyCgoKI0hvcml6b250YWxzCmRmX3NwZWVkX3RvcF9wWyhkZl9zcGVlZF90b3BfcCR3YXlfaWQgPT0gNjMxOTI1MjUgfCBkZl9zcGVlZF90b3BfcCR3YXlfaWQgPT0gMTA2MzM0ODUxKSAmICAgZGZfc3BlZWRfdG9wX3AkdHJhY2sgPCAxODAsXSRjb3Vyc2UgPC0gMgpkZl9zcGVlZF90b3BfcFtkZl9zcGVlZF90b3BfcCR3YXlfaWQgPT0gMzUwNzg1MDAgICYgICBkZl9zcGVlZF90b3BfcCR0cmFjayA+IDE4MCxdJGNvdXJzZSA8LSAyCgoKCmBgYAoKCiMjIyBBbGwgcG9pbnRzLiAKYGBge3IgZWNobz1GQUxTRX0KdHNlcmllc19saWdodDIgPC0gZnVuY3Rpb24oaW5kZXgpIHsgZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgJT4lIAogICAgZmlsdGVyKCB3YXlfaWQgPT0gZGZfb3NtX2VkZ2VfaWRzW2luZGV4LDFdICkgJT4lIAogICAgZ2dwbG90KGFlcyh4PSB0aW1lLCB5PSAoc3BlZWQqMTgpLzUpKSArIAogICAgZ2VvbV9wb2ludChhZXMoY29sb3VyID0gZmFjdG9yKGNvdXJzZSkpLCBhbHBoYSA9IDEvMTApICsgCiAgICB5bGFiKCJTcGVlZChrbS9oKSIpICsgCiAgICB4bGFiKCJEYXRlIikrIAogICAgZ2d0aXRsZShwYXN0ZSgiVGltZSBzZXJpZXMgb2Ygc3BlZWQgZm9yIHdheV9pZDoiLGRmX29zbV9lZGdlX2lkc1tpbmRleCwyXSxkZl9vc21fZWRnZV9pZHNbaW5kZXgsMV0sIHNlcCA9ICIgIiApKX0KCmxhcHBseSgxLCBGVU4gPSB0c2VyaWVzX2xpZ2h0MikKYGBgCgojIyMgQnkgaG91cgpgYGB7ciBlY2hvPUZBTFNFfQpkZl9zdXBlcmhvdGVkZ2VzX2FwcmlsMTZwdCAlPiUgCiAgZ3JvdXBfYnkod2F5X2lkKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gaG91cih0aW1lKSwgeT0gdHJhY2spKSArCiAgZ2VvbV9wb2ludChhZXMoY29sb3VyID0gY291cnNlKSwgYWxwaGEgPSAxLzIwKSArCiAgZmFjZXRfd3JhcCh+IHdheV9pZCkKYGBgCgojIyBHZW5lcmFsIAoKYGBge3J9CiBkZl9zdXBlcmhvdGVkZ2VzX2FwcmlsMTZwdCAlPiUgCiAgICBtZXJnZSh5ID0gZGZfb3NtX2VkZ2VfaWRzICwgdXNpbmcgPSB3YXlfaWQpICU+JSAKICAgIGdncGxvdChhZXMoeD0gdHJhY2ssIGZpbGwgPSBmYWN0b3Iod2F5X2lkKSkpICsgCiAgICBnZW9tX2hpc3RvZ3JhbShiaW53aWR0aCA9IDQ1KSArCiAgICBmYWNldF93cmFwKH50eXBlKSArCiAgICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsNDAwLDQ1KSkKCmBgYAoKCmBgYHtyIGVjaG89RkFMU0V9CmRmX3N1cGVyaG90ZWRnZXNfYXByaWwxNnB0ICU+JSAKICAgIG1lcmdlKHkgPSBkZl9vc21fZWRnZV9pZHMgLCB1c2luZyA9IHdheV9pZCkgJT4lIAogICAgZ2dwbG90KGFlcyh4PWhvdXIodGltZSkgLHk9IHRyYWNrKSkgKyAKICAgIGdlb21fcG9pbnQoYWVzKGNvbG91ciA9IGZhY3Rvcih3YXlfaWQpKSwgYWxwaGEgPSAxLzUwKSArCiAgICBmYWNldF93cmFwKH50eXBlKSAKYGBgCgpgYGB7ciBlY2hvPUZBTFNFfQpkZl9zdXBlcmhvdGVkZ2VzX2FwcmlsMTZwdCAlPiUgCiAgICBtZXJnZSh5ID0gZGZfb3NtX2VkZ2VfaWRzICwgdXNpbmcgPSB3YXlfaWQpICU+JSAKICAgIHN1YnNldCh3YXlfaWQgPT0gMzUxNDU1MjEpICU+JSAKICAgIGdncGxvdChhZXMoeD0gdHJhY2spKSArIAogICAgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGggPSA0NSkgKwogICAgZmFjZXRfd3JhcCh+ZmFjdG9yKGhvdXIodGltZSkpKSAKYGBgCgpgYGB7cn0KZGVuczIgPC1kZl9zdXBlcmhvdGVkZ2VzX2FwcmlsMTZwdCAlPiUgCiAgbWVyZ2UoeSA9IGRmX29zbV9lZGdlX2lkcywgdXNpbmcgPSB3YXlfaWQpICU+JSAKICBnZ3Bsb3QoYWVzKHg9IHRyYWNrKSkgKwogIGdlb21fZGVuc2l0eShhZXMoZ3JvdXA9ZmFjdG9yKGFkZHJlc3MpLCBjb2xvcj1hZGRyZXNzKSkgKyAKICBnZ3RpdGxlKCJEZW5zaXR5IG9mIGNvdXJzZSBncmFkZSh3aXRob3V0IHdlZWtlbmRzKSIpICsgCiAgeGxhYigiR3JhZGVzKMK6KSIpICsKICB5bGFiKCJEZW5zaXR5IikgKwogIGZhY2V0X3dyYXAofnR5cGUpCgpnZ3Bsb3RseShkZW5zMikgIApgYGAKCmBgYHtyIGVjaG89RkFMU0V9CmRlbnMzIDwtZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgJT4lIAogIG1lcmdlKHkgPSBkZl9vc21fZWRnZV9pZHMsIHVzaW5nID0gd2F5X2lkKSAlPiUgCiAgZ2dwbG90KGFlcyh4PSB0cmFjaykpICsKICBzY2FsZV95X2NvbnRpbnVvdXMoYygwLDAuMSkpKwogIGdlb21fZGVuc2l0eShhZXMoZ3JvdXA9ZmFjdG9yKHR5cGUpLCBjb2xvcj10eXBlKSkgKyAKICBnZ3RpdGxlKCJEZW5zaXR5IG9mIGNvdXJzZSBncmFkZSh3aXRob3V0IHdlZWtlbmRzKSIpICsgCiAgeGxhYigiR3JhZGVzKMK6KSIpICsKICB5bGFiKCJEZW5zaXR5IikgKwogIGZhY2V0X3dyYXAofmhvdXIodGltZSkpIAoKZ2dwbG90bHkoZGVuczMpICAKYGBgCgpgYGB7ciBlY2hvPUZBTFNFfQpkZW5zX2ggPC0gIGZ1bmN0aW9uKGhyKSB7IAoKZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgJT4lIAogIG1lcmdlKHkgPSBkZl9vc21fZWRnZV9pZHMsIHVzaW5nID0gd2F5X2lkKSAlPiUgCiAgZmlsdGVyKGhvdXIodGltZSkgPT0gaHIpICU+JSAKICBnZ3Bsb3QoYWVzKHg9IHRyYWNrKSkgKwogIGdlb21fZGVuc2l0eShhZXMoZ3JvdXA9ZmFjdG9yKGFkZHJlc3MpLCBjb2xvcj1hZGRyZXNzKSkgKyAKICBnZ3RpdGxlKCJEZW5zaXR5IG9mIGNvdXJzZSBncmFkZSh3aXRob3V0IHdlZWtlbmRzKSIpICsgCiAgeGxhYigiR3JhZGVzKMK6KSIpICsKICB5bGFiKCJEZW5zaXR5IikgCgp9CgpsYXBwbHkoOCwgRlVOID0gZGVuc19oKQpgYGAKCgpgYGB7cn0KZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgJT4lIAogIGZpbHRlcih3YXlfaWQgPT0gZGZfb3NtX2VkZ2VfaWRzW2luZGV4LDFdICkgJT4lIAogIGdncGxvdChhZXMoeD0gdHJhY2ssIGZpbGwgPSBmYWN0b3IoY291cnNlKSkpICsgCiAgICBnZW9tX2hpc3RvZ3JhbShiaW53aWR0aCA9IDQ1KSArCiAgZmFjZXRfd3JhcCh+aG91cih0aW1lKSkKYGBgCgpgYGB7cn0KZGVuc19ocjIgPC0gZnVuY3Rpb24oaW5kZXgpIHsgIGRmX3N1cGVyaG90ZWRnZXNfYXByaWwxNnB0ICU+JSAKICBmaWx0ZXIoIHdheV9pZCA9PSBkZl9vc21fZWRnZV9pZHNbaW5kZXgsMV0pICU+JSAKICBtZXJnZSh5ID0gZGZfb3NtX2VkZ2VfaWRzLCB1c2luZyA9IHdheV9pZCkgJT4lIAogIGdncGxvdChhZXMoeD0gdHJhY2spKSArCiAgZ2VvbV9kZW5zaXR5KGFlcyhncm91cD1mYWN0b3IoaG91cih0aW1lKSksIGNvbG9yPWZhY3Rvcihob3VyKHRpbWUpKSkpICsgCiAgZ2d0aXRsZShwYXN0ZSgiRGVuc2l0eSBvZiBjb3Vyc2UgZ3JhZGUod2l0aG91dCB3ZWVrZW5kcykiLGRmX29zbV9lZGdlX2lkc1tpbmRleCwyXSxkZl9vc21fZWRnZV9pZHNbaW5kZXgsMV0sIHNlcCA9ICIgIiApKSArIAogIHhsYWIoIkdyYWRlcyjCuikiKSArCiAgeWxhYigiRGVuc2l0eSIpIAogICAgICAgICAgCn0KCmxhcHBseSgxOjcsIEZVTiA9IGRlbnNfaHIyKQpgYGAKCmBgYHtyfQpkZW5zX2hyMyA8LSBmdW5jdGlvbihpbmRleCkgeyAgZGZfc3VwZXJob3RlZGdlc19hcHJpbDE2cHQgJT4lIAogIGZpbHRlciggd2F5X2lkID09IGRmX29zbV9lZGdlX2lkc1tpbmRleCwxXSkgJT4lIAogIG1lcmdlKHkgPSBkZl9vc21fZWRnZV9pZHMsIHVzaW5nID0gd2F5X2lkKSAlPiUgCiAgZ2dwbG90KGFlcyh4PSB0cmFjaykpICsKICBnZW9tX2RlbnNpdHkoYWVzKGdyb3VwPWZhY3Rvcihjb3Vyc2UpLCBjb2xvcj1mYWN0b3IoY291cnNlKSkpICsgCiAgZ2d0aXRsZShwYXN0ZSgiRGVuc2l0eSBvZiBjb3Vyc2UgZ3JhZGUod2l0aG91dCB3ZWVrZW5kcykiLGRmX29zbV9lZGdlX2lkc1tpbmRleCwyXSxkZl9vc21fZWRnZV9pZHNbaW5kZXgsMV0sIHNlcCA9ICIgIiApKSArIAogIHhsYWIoIkdyYWRlcyjCuikiKSArCiAgeWxhYigiRGVuc2l0eSIpIAogICAgICAgICAgCn0KCmxhcHBseSgxOjcsIEZVTiA9IGRlbnNfaHIzKQpgYGAKCgoK